home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / mac / ssb_test.hqx / SSBTest / background_2742.txt < prev    next >
Text File  |  1992-01-05  |  3KB  |  126 lines
  1. -- background: 2742 from stack: in
  2. -- bmap block id: 3539
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into background field "time"
  9. end idle
  10.  
  11. on handleTheirSigButtons
  12.   global TheirReport
  13.   set the hilite of button "5/9 their" to TheirReport = "59"
  14.   set the hilite of button "5/8 their" to TheirReport = "58"
  15.   set the hilite of button "5/7 their" to TheirReport = "57"
  16. end handleTheirSigButtons
  17.  
  18. on handleMySigButtons
  19.   global MyReport
  20.   set the hilite of button "5/9" to MyReport = "59"
  21.   set the hilite of button "5/8" to MyReport = "58"
  22.   set the hilite of button "5/7" to MyReport = "57"
  23. end handleMySigButtons
  24.  
  25. on HandleBandButtons
  26.   global TheBand
  27.   set the hilite of button "10M" to TheBand = "10"
  28.   set the hilite of button "15M" to TheBand = "15"
  29.   set the hilite of button "20M" to TheBand = "20"
  30.   set the hilite of button "40M" to TheBand = "40"
  31.   set the hilite of button "80M" to TheBand = "80"
  32. end HandleBandButtons
  33.  
  34. On GiveSignal
  35.   Global TheirReport
  36.   If TheirReport = "59" then
  37.     play "alfa5"
  38.     play "alfa9"
  39.   end if
  40.   If TheirReport = "58" then
  41.     play "alfa5"
  42.     play "alfa8"
  43.   end if
  44.   If TheirReport = "57" then
  45.     play "alfa5"
  46.     play "alfa7"
  47.   end if
  48. end GiveSignal
  49.  
  50. on GiveNumber
  51.   put length of card field theirnumber into Ncount
  52.   repeat with count = 1 to Ncount
  53.     get character count of card field theirnumber
  54.     put it into temp
  55.     play "alfa" & temp
  56.   end repeat
  57. end GiveNumber
  58.  
  59. on GiveTheirCall
  60.   put length of card field TheirCall into Ncount
  61.   repeat with count = 1 to Ncount
  62.     get character count of card field TheirCall
  63.     put it into temp
  64.     if temp = "/" then
  65.       play "portable"
  66.     else
  67.       play "alfa" & temp
  68.     end if
  69.   end repeat
  70. end GiveTheirCall
  71.  
  72. on UpdateCardFields
  73.   get item 1 of card field theirnumber
  74.   add 1 to it
  75.   if it < 99 then
  76.     put "0" & it into it
  77.   end if
  78.   put it into card field theirNumber
  79.   put " " into card field theircall
  80.   beep 1
  81. end UpdateCardFields
  82.  
  83. on LogData0
  84.   global TheBand
  85.   global TheirReport
  86.   global MyReport
  87.   put item 1 of card field theirnumber into TheirNumber
  88.   put item 1 of card field TheirCall into CallSign
  89.   put item 1 of card field myNumber into theCount
  90.   put return &  TheirNumber after last word of card field logdata
  91.   put space & CallSign after last word of card field logdata
  92.   put space &  The Time after last word of card field logdata
  93.   put space &  TheBand after last word of card field logdata
  94.   put space &  TheirReport after last word of card field logdata
  95.   put space &  MyReport after last word of card field logdata
  96.   put space & theCount after last word of card field logdata
  97. end LogData0
  98.  
  99. on LogData
  100.   global TheBand
  101.   global TheirReport
  102.   global MyReport
  103.   put item 1 of card field theirnumber into TheirNumber
  104.   put item 1 of card field TheirCall into CallSign
  105.   put item 1 of card field myNumber into theCount
  106.   put return & TheirNumber & space & CallSign & Space into temp1
  107.   put The Time & Space & TheBand & Space & TheirReport into Temp2
  108.   put Space & MyReport & Space & theCount into Temp3
  109.   put temp1 & temp2 & temp3 after last word of card field logData
  110. end LogData
  111.  
  112.  
  113.  
  114. -- part 1 (field)
  115. -- low flags: 01
  116. -- high flags: 0002
  117. -- rect: left=74 top=265 right=292 bottom=185
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 3
  122. -- text size: 18
  123. -- style flags: 256
  124. -- line height: 24
  125. -- part name: time
  126.